home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / comm2 / alist.lha / src / alquit.e < prev    next >
Text File  |  1995-11-08  |  326b  |  19 lines
  1. /* ALQuit.e */
  2.  
  3. /* Quits AList */
  4.  
  5. MODULE 'other/aldef'
  6.  
  7. PROC main()
  8.    barnacle_start()
  9.    IF (alist_replyport = NIL)
  10.       WriteF ('Major problems, dude!  I can\at even get a port open!\n')
  11.       CleanUp (20)
  12.    ENDIF
  13.  
  14.    IF (barnacle_put_msg (NIL, ALM_QUIT))  THEN WriteF ('AList isn\at up!\n')
  15.  
  16.    barnacle_end()
  17. ENDPROC
  18.  
  19.